home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / yaf77-1.1 / yaf77-1 / yaf77 / F77ext / not.c < prev    next >
Encoding:
Text File  |  1996-01-15  |  85 b   |  9 lines
  1. int not_ (a)
  2. int *a;
  3. {
  4.     static int res;
  5.     
  6.     res = (~*a);
  7.     return (res);
  8. }
  9.